Help for this page

Select Code to Download

Select or download this
```
@array = <>;
```

Select or download this

@array = <>;
@array = map {  substr($_,0,$x)  } @array;
...
#or in one step:

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