use warnings;
use strict;

my %hash = (one => 1, two => 2);

for my $key (keys %hash){
    print "$key\n" if $key =~ /one/;
}

my @array = qw(one two three);

for my $elem (@array){
    print "$elem\n" if $elem =~ /one/;
}