use FixedLength;
use strict;
 
my $foo;
 
tie $foo, 'FixedLength', 5;
 
my @words = qw( s so som some somew somewo somewor someword somewords);
 
foreach my $word ( @words)
{
   $foo = $word;
   print "*$foo*\n";
}