Try it

$capitals{"Ohio"} = "Columbus";
$capitals{"Utah"} = "Salt Lake City";
foreach my $state (qw( Ohio Utah )) {
    print "The capital of $state "
        . "is $capitals{$state}\n";
}