for (@b){$a[1]=$_;say:}