$ perl -e '
    use Data::Dump;

    my @Subscription = (
         {
         Sub_Name               => "Morph",
         Archive_File           => "Morph Archive.txt",
         },
         {
         Sub_Name               => "Analogue",
         Archive_File           => "Analogue Archive.txt",
         },
         {
         Sub_Name               => "Cat",
         Archive_File           => "Cat Archive.txt",
         },
         {
         Sub_Name               => "Zoonotic",
         Archive_File           => "Zoonotic Archive.txt",
         },
         {
         Sub_Name               => "Hydro",
         Archive_File           => "Hydro Archive.txt",
         },
    );

    some_sub([map +{Sub_Name => $_->{Sub_Name}}, @Subscription]);

    sub some_sub {
        my ($single_scalar) = @_;
        dd $single_scalar;
        return;
    }
'
[
  { Sub_Name => "Morph" },
  { Sub_Name => "Analogue" },
  { Sub_Name => "Cat" },
  { Sub_Name => "Zoonotic" },
  { Sub_Name => "Hydro" },
]