use strict;
use warnings;

my $param_file = 'Params.txt';
open my $param_fh, '<', $param_file
    or die "Can't read '$param_file': $!";
my (@params, @charam);
while (<$param_fh>) {
    my ($name,$value) = split /:/;
    push @params, $name;
    push @charam, $value;
}
my @actual = @charam;
close $param_fh or die "Close failed: $!";