my $somevar;
open $somevar, ">", "somefile" or die "unable to open: $!\n";