変数名はどの言語でも同じだろ、
慣習とか無視してアホな変数名つけるやつはどこにでもいる。
それより引数の受け取りであまりにもいろんな書き方ができるのが萎える。
あとオブジェクトの導入部なんとかしてほすい

($proto, @args) = @_;
$class = ref $proto || $proto;
$parent = ref $proto && $proto;
$argref = ref $args[0] eq 'HASH' ? $args[0] : {@args};
$self = bless $argref, $class;

↑こんな回りくどいコード書かなきゃならない糞言語です、Perlは