Something like this could work:

#!/usr/bin/perl 
use strict;
use warnings;

my $inputFile = $ARGV[0];
my @userOrder = ("10.1", "100.1", "25.1", "103.1");
my %data;
my @line;

open (my $data, "<", $inputFile);
while (<$data>)
    {
        @line = split(",", $_);
        $line[0] =~ s/ //g;
        $data{$line[0]} = $_;
    }

for  (my $x = 0; $x < @userOrder; $x += 1)
    {
        print STDERR " $data{$userOrder[$x]}";
    }
[download]