#!usr/bin/perl
use warnings;
use stricts;


my @array = b, d, a, c;

my %hash = (
    "a"  => "200",
    "b"  => "100",
    "c"  => "30",
    "d"  => "40",);

foreach my $key (keys %hash){ push (@key, $key);}
foreach my $value (values %hash){ push (@value, $value);}

foreach my $t (0 .. $#array) {
    if ($array[$t] eq $key[$t]) {
        print "array element: $array[$t] = $value[$t] inside \%hash\n";
    }
    else { next }
}