@stn_names = (0) x STN_NAME_LEN; 

##</code><code>##

my $s = pack "c5", (0)x5;