my %replacementhash = map { $_="TEMP$_"; $_ => "contains $_"} 1..4;