#!/usr/bin/perl -w
use strict;

#-
$;#-
='j'#-
;$"=#-
'p';#-
;@_#-
#=$[#-
=('a'#-
,'h');#-
print$;#-
."@_"#-
;#-
#-