@array = <>;

##</code><code>##

@array = <>;
@array = map {  substr($_,0,$x)  } @array;

#or in one step:

@array = map {  substr($_,0,$x)  } <>;