>>481
よく分からんけど書いてみた

my $ref = [qw(foo bar)];
my $scl = 'hoge';

huga($ref);
huga($scl);

sub huga($){
my @ary;

ref $_[0] eq 'ARRAY' ? push @ary, @{$_[0]} : push @ary, $_[0];

print join ', ', @ary;
print "\n";
}