#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11120854
use warnings;

my %pos2base2bin = (
    '315' => { '8'  => 0 },
    '329' => { '6'  => 0 },
    '352' => { '5'  => 0 },
    '390' => { '1'  => 0 },
    '280' => { '7'  => 1 },
    '360' => { '9'  => 0 },
    '349' => { '4'  => 0 },
    '305' => { '10' => 0 },
    '380' => { '3'  => 1 },
    '251' => { '2'  => 0 }
);

local ($\, $,) = ("\n", "\t");
my @items = sort { $a->[0] <=> $b->[0] } map [%$_], values %pos2base2b
+in;
print 'sample', map $_->[0], @items;
print 'file1',  map $_->[1], @items;
[download]