foreach my $key ( @keys) {
    print $key,"\n";
}