...
 my ($x, $y) = (122, 233);
 my $r = pack "L2", $y, $x;                # pack two DWORDS

 print  $r;                                # will print nothing useful
 print "\n", join "\n", unpack "L*", $r;   # will print dwords
 print "\n", join "\n", unpack "C*", $r;   # will print bytes
 ...