#!/usr/bin/perl
use warnings;
use strict;

  my @nums=(1,2,4,5,8,9);
  my @dats=(3,9,14,10,12,8);
   
  my %ha;
     @ha{@nums}=@dats;

    print $_,' ',$ha{$_},$/ for sort keys %ha;