print "Number => $hash{Number}\n";
while (my ($k, $v) = each %hash) {
    next if $k eq 'Number';
    print "$k => $v\n";
}
[download]