Exercise for Danik

mask_data.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Digest::SHA qw(sha1_hex);
use List::Util qw(shuffle);

while (<DATA>) {    # loop over lines of __DATA__ below
    chomp;          # remove newline
    my ( $num, $last, $first ) = split /;/;

    my $hashed_last = sha1_hex($last);
    my $scrambled_num = join( "", shuffle( split //, $num ) );

    print "$scrambled_num;$hashed_last;$first\n";
}

__DATA__
1234567890;Smith;John
1234567890;Bond;James
1234567890;Fox;Samantha