#!perl
use strict;
use warnings;

sub both_byte_orders_32 {
    my $data = shift;
    $data = pack 'H*', sprintf '%08x', $data;
    return reverse($data).$data
}

print both_byte_orders_32(305419896);