Hash Perl

  1. Home
  2. Perl
  3. Hash
  4. Using variable as the key to get the value stored in a hash
#!/usr/bin/perl -w
use strict;
my $who = "C";
my %where = (
     A => "AA",
     B => "BB",
     C => "CC",
     D => "DD"
);
print $where{A}, "\n";
print "$who lives in $where{$who}\n";