sub catalanche
{
    system qq( cat "$_" >> "$_[1]" ) for @{$_[0]};
}

catalanche( \@sel_files => 'selected.txt' );