#!/perl/bin/perl
#
# test.pl --
use strict;
use warnings;
use diagnostics;

our $a = 'var a';
our $b = 'var b';

varprint('a','b');

sub varprint {
    my @list;

    for (@_) {
        my $var = $_;
        my $ref = $main::{$var};

        push(@list, "\$$var='$$ref'");
    }
    print join(", ",@list),"\n";
}