my %data = 1 .. 10;
my( @data  ) = ( 3, 5 , 1, 9 , 7 );
print "$_ => $data{$_}$/" for sort keys %data;
print "---$/";
print "$_ => $data{$_}$/" for @data;
__END__
1 => 2
3 => 4
5 => 6
7 => 8
9 => 10
---
3 => 4
5 => 6
1 => 2
9 => 10
7 => 8