#!/usr/bin/perl -w
use strict;

my @l=qw( a b 3 d );

foreach (@l) {
    print "$_ = ";
    foreach (@l) {
            print "$_ ";
    }
    print "\n";
}

foreach (@l) {
        icky();
}

sub icky {
    print "$_ = ";
    foreach (@l) {
            print "$_ ";
    }
    print "\n";
}