#!/usr/bin/perl -w
use strict;

srand(42);
map { my $l = $_;
      my ($n, $r) = (0, int(rand(128)));
      print map { chr($r) if($l == ($n += $_)) }
            qw(100 43 6 159 12 4 28 96 15 72 2 72 158 338
               275 34 60 155 327 38 153 18 119 271 212 57); } (1 .. 2825);