Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. Using while loop with each
#!/usr/bin/perl -w
use strict;
my %where = (
     G     => "A",
     L     => "B",
     I     => "C",
     S     => "D"
);
my($k, $v);
while (($k, $v) = each %where) {
    print "$k lives in $v\n";
}