##
substr $arr[-1], -$padding, $padding, q{} if $padding;
##
##
my $padding = 8 - (length($str) % 8);
##
##
$ perl -le '$str = q{abc}; $pad = $str % 8; print $pad;'
0
$ perl -le '$str = q{abcdefghijkl}; $pad = $str % 8; print $pad;'
0
$