#my $path = '/opt/finance/File1'; my $path = q|/tmp/File1|; my $PMN = 'KKDDI'; my $MON = 'DDIID'; my $YEAR ='2013'; my $MON='JAN'; my $DATE='12'; my $CSV = $path . '.csv'; open CSV, ">$CSV" || die "Cannot open the file $CSV $! \n"; print CSV "\"ABCDE501,\"\"$PMN\"\",$MON/01/$YEAR,$MON/$DATE/$YEAR,$MON/$DATE/$Y\ EAR\"\n"; # Data hash contains values that has to be printed. foreach my $key (keys %DataHash) { print CSV $DataHash{$key}; } close(CSV);