my $i = 42;
my $j = 'FreeBSD';

sub display_init {
        my @variables = @_;
        my $value;

        foreach (@variables) {
                eval("\$value=\$$_");
                if (! defined($value) ) { $value = "undefined"; }
                print "$_ : $value\n";
        }
}
display_init (qw( i j));
__END__
i : 42
j : FreeBSD