$var = mysub();
@var = mysub();
%var = mysub();

sub mysub {
    print "You want a scalar\n" unless wantarray;
    print "You either want a hash or an array\n" if wantarray;
}