my $abs   = path(__FILE__)->absolute;
my $path1 = Path::Tiny->cwd;

my %var;                                      #main data structure
my $ref_var = \%var;

$var{abs} = $abs;
$var{cwd} = $path1;