use 5.010;
open my $in, "<", "sesip1" or die;
open my $out, ">", "sesip2" or die;
my @lines = <$in>;
chomp @lines;
{
    local $" = " ";
    say $out "dest (@lines)";
}
close $out or die;