#!/usr/local/bin/perl
%sitenames=('ACH','ACH','CON','Concord','DOSC','Deposit Ops','ELM','ElMonte','ORG','Orange','OCSP','OCSPortal','PCS','PCS','BOI','Boise','LUB','Lubbock','PHX','Phoenix','RNO','Reno','STPS','Shoreview','SAC','Sacramento NBBC','BUT','Sacramento PB','SHN','Shoreview NBBC','SHP','Shoreview PB','SIO','Sioux Falls','UTA','Salt Lake City','WLK','Westlake','UNK','(Unknown)', 'TOTAL', 'TOTAL');

@sitelist=('ACH','CON','DOSC','ELM','NGT','SAC','BUT','ORG','PCS','BOI','LUB','NGT','PHX','RNO','STPS','SHN','SHP','SIO','UTA','WLK','UNK');

open(O,">out") || die "could not open out\n";
foreach $key (@sitelist)
{
 print O $key."|".$sitelist{$key};
 for ($i=0;$i<18;$i++)
 {
  $d=rand(time())%11;
  print O $d*90 ."|".$d."|".$i."|";
 }
 print O "\n";
}
print O "# $0 ".`date`."\n";
close(O);