my $fill = "y";
my $len  = 8;
my $val  = 4040;

my $str  = substr (($fill x $len).$val, -$len, $len);

print ("$str\n");