#!/usr/bin/perl -wT
#
use strict;

  my $foo = {
        'clean'         => 'filename.txt',
        'dirty'         => scalar(<>),
  };
  open(F,"+>{$foo->{clean}}");
  close(F);