my %sizes= (
        $inputFile =>   $controlFile,
    );
# and
    my %object= (
        InputFile =>        $inputFileName,
        InputSize =>        "ControlFile",
        $controlFileName => "ControlSize",
    );
    return bless \%object;