#!/usr/bin/perl

use Alias ( alias );      # Retrieve from www.perl.com/CPAN/modules

@countries = (
    {   name       => 'Finland',
        area       => 130119,
        language   => ['Finnish', 'Swedish'],
        government => 'constitutional republic' },

    {   name       => 'Canada',
        area       => 3849000,
        language   => ['English', 'French'],
        government => 'confederation with parliamentary democracy' },

    {   name       => 'USA',
        area       => 3618770,
        language   => ['English'],
        government => 'federal republic with democracy' },
);

foreach $country (@countries) {
    local @language, $name;
    alias language => $country->{language};
    alias name     => $country->{name};
    if (@language > 1) {
        foreach $language ( @language ) {
            print $name, " speaks $language\n";
        }
    }
}