print join "\n", @{$subs[0]}[1 .. $#{$subs[0]} - 1], '';