my @line = (
　　'global SchoolNet Director',
　　'we have increased the US publics global awareness',
　　'CanWest global Communications',
　　'help address global warming issues',
　　'California Wood Use Endangers global',
);
my $word = 'global';

my($max, @pos);
for (@line) {
　　my $pos = index $_, $word;
　　$max < $pos and $max = $pos;
　　push @pos, $pos;
}
print ' ' x ($max - shift @pos) . "$_\n" for @line;