name1.pl

use strict;
use warnings;

my $size = 42;
my $year = 2010;
my $name = "double_start_${size}/n";
my $full_name = "double_start_" . $size . "_" . $year;
print "$name";
print $full_name;
print "/n";
print '$full_name/n';