my $som_rekening = "2147483648";

my $i = 15-length($som_rekening);

$i = 0 if( $i < 0 );

my $padded_som = "0"x$i.$som_rekening;

print "PADDED SOM: $padded_som - $som_rekening\n";