Thanks, I was trying to come up with some shortcuts and was failing miserably and the awnsers I got here reminded me I could do the following, this is the actual code.

my %data           = ( DATA      => { DIR  => "/prod" },

                       LOGS      => { DIR  => "/prod/logs" },

                       SITE1  => { DIR  => "/prod/data1",
                                   FILE =>  "/prod/data1/LSTD.DAT" },

                       SITE2  => { DIR  => "/prod/data2",
                                   FILE => "/prod/data2/LSTD.DAT" },

                       LOG1      => { FILE => "/prod/logs/stdaudit01_3
+289.log_1" },

                       LOG2      => { FILE => "/prod/logs/stdaudit02_8
+750.log_1" } );

# assign $data{$_}{'COPY_D'} and $data{$_}{'COPY_F'} Where needed
for ( keys (%data) )
{
    if ( $data{$_}{'DIR'}  ) { $data{$_}{'COPY_D'} = join '', $ARCHIVE
+_DIR, $data{$_}{'DIR'}  }
    if ( $data{$_}{'FILE'} ) { $data{$_}{'COPY_F'} = join '', $ARCHIVE
+_DIR, $data{$_}{'FILE'} }
}
[download]

I just needed to provide an interface to do some copying once a flashcopy is made of a disk...