@arr=(1,2,3,4,5,6,7,8,9,10);
%hsh= ();
$i=0;
while($i<10)
{
 $hsh{$arr[$i]}=$arr[$i+1];
 $i=$i+2;
}
while ( my ($key, $value) = each(%hsh) ) {
        print "$key => $value\n";
    }