# mycode.pl

my $file     = "files/data.pri";

my $name     =  (split(/\./,$file))[0];
my $file_sec = "$name.sec";