gistfile1.pl

sub get_operand {
    my $arg = shift;
	
	my $listref = @$arg;

    if (UNIVERSAL::isa($listref, 'ARRAY')) {
        my $x = @$listref;
        print length($x).join(",",$x) . "\n"
        # WTF?
        }
      else {
        #return %registers{$arg}
        }
    }