A different approach

• Using bad words (@%#$!%^#)

Reproducable test case

    #!/usr/bin/perl -w

    # use strict;
    # use diagnostics;

    my $e010101 = "Value 1";
    my @e = (0, { 101 => $e010101 });

    format OLD0 =
    @<<<<<<<<<<
    $e010101
    .

    format NEW0 =
    @<<<<<<<<<<
    $e[1]{101}
    .

    format NEW0 =
    @<<<<<<<<<<
    "$e[1]{101}"
    .