There's nothing wrong with your solution, but if you want to use pack, you could do

my $info = "76 73 0 4  244 1 0 0";

my $bin = pack "C*", reverse split ' ', $info;

print join(" ", unpack("(H8)*", $bin) ), "\n";  # hex offsets
print join(" ", unpack("N*",    $bin) ), "\n";  # decimal offsets
[download]

Output:

000001f4 0400494c 
500 67127628

Or, if you only need the decimal offsets

print join(" ", unpack("V*", pack "C*", split ' ', $info) ), "\n";  # 
+67127628 500
[download]