system "cut -opts $_/file >$_/newfile" for qw( d1 d2 d3 d4 d5 );