my $int = 12345678;
my @bytes = unpack('CCCC', pack('N', $int));